PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Organizational Aids/ClassRoom Aids/SetUpStack/card_2846.txt

Text File | 1987-12-24 | 6.6 KB | 278 lines

-- card: 2846 from stack: in
-- bmap block id: 6744
-- flags: 4000
-- background id: 2754
-- name: Configuration


-- part 3 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=382 top=128 right=156 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Configure
----- HyperTalk script -----
on mouseUp
  global NumStudents,A,B,C,D,ClassName, period
  put card field "B" into B
  put card field "A" into A
  put card field "C" into C
  put card field "D" into D
  Answer "Configure all classes?" with "OK" or "Cancel"
  if it is "Cancel" then exit mouseUp
  put number of lines in card field "Title" into numClasses
  repeat with x = 1 to numClasses
    go to setupstack
    go to card "configuration" of setupstack
    put line x of card field "NumStudents" into NumStudents
    put line x of card field "Title" into ClassName
    put line x of card field "Period" into period
    if x > 1 and x < numClasses then
      answer "Configure next class?" with "OK" or "Cancel"
      if it is "Cancel" then exit mouseUp
    end if
    doSeatingChart
    answer "This may take a few minutes..."
    set lockscreen to true
    set cursor to 4
    doProfiles
    doGrades
    doAttendance
    set lockscreen to false
  end repeat
  go to first card
end mouseUp

on doSeatingChart
  global ClassName, period, numStudents,stackname
  go to card "ClassListTemplate"
  doMenu "Copy Card"
  doMenu "New Stack..."
  get the name of this stack
  put word 2 of it into stackname
  set name of this card to "SeatingChart"
  put period into bkgnd field "Period"
  put ClassName into bkgnd field "Class"
  repeat with z = 2 to 36
    set the script of field z to the script of field 1
  end repeat
  put 1 into counter
  repeat with x = 0 to 5
    repeat with y = 1 to 6
      if counter > numStudents then exit doSeatingChart
      put "Who sits in row" && x+1 && "and seat" && y & "?" into myquest
      ask myquest
      if word 1 of it is not empty then put counter + 1 into counter
      put x * 6 + y into seat
      put word 1 of it & return & word 2 of it into field seat
    end repeat
  end repeat
  put tempScript into the script of field "date"
end doSeatingChart

on DoProfiles
  global ClassName, Period,A,B,C,D,stackname
  go to card "ProfileTemplate" of SetUpStack
  doMenu "Copy Card"
  repeat with x = 1 to 36
    go to last card of stackname
    put word 1 of field x of card "SeatingChart" into temp1
    put word 2 of field x of card "SeatingChart" into temp2
    if temp1 is empty then
      next repeat
    end if
    doMenu "Paste Card"
    put A into card field "A"
    put B into card field "B"
    put C into card field "C"
    put D into card field "D"
    put temp1 && temp2 into field "Name"
    put char 1 of temp1 & temp2 & "Profile" into cardname
    get name of this card
    set name of this card to cardname
  end repeat
end DoProfiles

on DoGrades
  global ClassName, Period,stackname
  go to card "GradesTemplate" of SetUpStack
  doMenu "Copy Card"
  repeat with x = 1 to 36
    go to last card of stackname
    put word 1 of field x of card "SeatingChart" into temp1
    put word 2 of field x of card "SeatingChart" into temp2
    if temp1 is empty then
      next repeat
    end if
    doMenu "Paste Card"
    put temp1 && temp2 into field "Name"
    put char 1 of temp1 & temp2 & "Grades" into cardname
    set name of this card to cardname
    put ClassName into card field "Class"
    put Period into card field "Period"
  end repeat
end DoGrades

on DoAttendance
  global ClassName, period,stackname
  go to card "AttendanceTemplate" of SetUpStack
  doMenu "Copy Card"
  repeat with x = 1 to 36
    go to last card of stackname
    put word 1 of field x of card "SeatingChart" into temp1
    put word 2 of field x of card "SeatingChart" into temp2
    if temp1 is empty then
      next repeat
    end if
    doMenu "Paste Card"
    put temp1 && temp2 into card field "Name"
    put char 1 of temp1 & temp2 & "Attendance" into cardname
    set name of this card to cardname
    put ClassName into card field "Class"
    put period into card field "Period"
  end repeat
  put "Your class record is now complete" into msg
end DoAttendance





-- part 4 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=59 top=115 right=230 bottom=201
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title


-- part 5 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=214 top=115 right=231 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Period


-- part 11 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=267 top=115 right=231 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NumStudents


-- part 12 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=58 top=255 right=305 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A


-- part 13 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=120 top=255 right=305 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B


-- part 14 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=184 top=255 right=305 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C


-- part 15 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=254 top=255 right=305 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: D


-- part contents for card part 4
----- text -----
Your class here


-- part contents for card part 5
----- text -----



-- part contents for card part 12
----- text -----
97.5
92.5
90.0

-- part contents for card part 13
----- text -----
87.5
82.5
80.0
77.5

-- part contents for card part 14
----- text -----
77.5
72.5
70.0

-- part contents for card part 15
----- text -----
67.5
62.5
60.0